home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / bbs / FList_211.lha / FList / Rexx / FListLoad.Trans < prev    next >
Text File  |  1997-01-19  |  507b  |  23 lines
  1. /**/
  2. Options Results
  3. signal on syntax
  4. sendfile "BBS:Text/FlistLoad"
  5. call 'BBS:Rexx/FList.Trans'
  6. exit
  7.  
  8. syntax:
  9. golf=sigl
  10. code=rc
  11. newline
  12. print "Oh dear we have an error!!"
  13. newline
  14. print "Line# : "golf
  15. print "Code  : "code
  16. print "Error : "errortext(code)
  17. newline
  18. sl clr||bld"[FListLoad] *** Error, Line #"golf", Code "code", Error ["errortext(code)"] *** "
  19. print " ** Please Leave The SysOp Feedback And (s)he Will Check The Logs ** "
  20. newline
  21. continue
  22. exit
  23.